home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
0286.ZIP
/
LIST1.DAT
< prev
next >
Wrap
Text File
|
1986-10-04
|
4KB
|
221 lines
0010TESTW027NEXT0150
0020INCW0100
0030TESTW031NEXT0050
0040INCW0100
0050TESTW021NEXT0070
0060INCW0800
0070JUMP0200
0100TALKW027
0110TALK0009
0120EXIT
0130TALKW032
0140EXIT
0150TESTW031NEXT0200
0160INCW0130
0170TESTW021NEXT0200
0180INCW0800
0200TESTU???NEXT0205
0201INCW0260
0202JUMP0900
0205TESTW028NEXT0300
0210INCW0800
0220TESTW030NEXT0900
0230INCW0800
0240TESTW003NEXT0900
0250INCW0800
0255TESTU???NEXT0900
0260NULL0009
0270STR+0009
0280JUMP0100
0300TESTW034NEXT0320
0310INCW0800
0320TESTC???1000NEXT
0325TESTW0371000NEXT
0330TESTW035NEXT0370
0340INCW0800
0350TESTW036NEXT0380
0360INCW0800
0370TESTQ???5000NEXT
0380TESTW0035000NEXT
0390ERR=0001
0400STOP
0800ERR=0003
0810STOP
0900ERR=0001
0910STOP
1000TESTC0011200NEXT
1010TESTC0021400NEXT
1020TESTC0031240NEXT
1030TESTC0041900NEXT
1040TESTC0051900NEXT
1050TESTC0061900NEXT
1060TESTC0071900NEXT
1070TESTW0371960NEXT
1080TESTC0081600NEXT
1090TESTC0091700NEXT
1100TESTC0101800NEXT
1110TESTC0111850NEXT
1120TESTC0122000NEXT
1130TESTC0147000NEXT
1140TESTC0157000NEXT
1150TESTC0167000NEXT
1180ERR=0
1190STOP
1200INCW0800
1210NULL0002
1220CF%=0001
1230JUMP1260
1240NULL0002
1250INCW0800
1260SUBR0002
1270FLAGSTOP
1280ADDN0002
1290CF%=0000
1300TESTP???NEXT0900
1310STR+0002
1320INCW0800
1330SUBR0002
1340FLAGSTOP
1350ADDN0002
1360PROC11000
1370EXIT
1400INCW0800
1410NULL0002
1420SUBR0002
1430FLAGSTOP
1440ADDN0002
1450PROC11300
1460EXIT
1600INCW0800
1610SUBR0002
1620FLAGSTOP
1630EXIT
1700INCW0800
1710NULL0002
1720SUBR0002
1730FLAGSTOP
1730ADDN0002
1750TESTA???NEXT0900
1760STR+0002
1770PROC15000
1780EXIT
1800INCW0800
1810TESTW002NEXT1820
1815INCW0800
1820TESTW041NEXT1835
1825PROC10910
1830EXIT
1835TESTW054NEXT0900
1836PROC14350
1837EXIT
1850INCW0800
1860TESTW002NEXT1870
1865INCW0800
1870TESTW041NEXT1885
1875PROC10920
1880EXIT
1885TESTW054NEXT0900
1887PROC14300
1888EXIT
1900INCW1960
1910TESTW002NEXT1920
1915INCW0800
1920TESTW042NEXT1930
1925PROC14200
1927EXIT
1930TESTW031NEXT0800
1960CF%=9999
1970TALKW037
1975TALK0900
1980EXIT
2000INCW0800
2010TESTW002NEXT2020
2015INCW0800
2020TESTW042NEXT0900
2030PROC14100
2040EXIT
5000TESTQ0015200NEXT
5010TESTQ0025400NEXT
5020TESTW0036000NEXT
5090STOP
5200INCW0800
5205TESTW006NEXT0900
5210INCW0800
5215NULL0002
5220NULL0003
5225NULL0004
5230TESTA???NEXT5245
5235STR+0003
5240INCW0800
5245TESTN???NEXT5265
5250STR+0004
5255INCW0800
5260JUMP5285
5265TESTW0155280NEXT
5270TESTW0165280NEXT
5275JUMP0900
5280INCW0800
5285TESTW004NEXT0900
5290INCW0800
5295TESTW039NEXT5298
5296INCW0800
5298TESTP???NEXT0900
5300STR+0002
5305INCW0800
5310SUBR0002
5315FLAGSTOP
5320ADDN0002
5325PROC14000
5330EXIT
5400INCW0800
5410NULL0002
5420TESTW018NEXT5460
5430STR+0002
5440INCW0800
5450JUMP5490
5460TESTW017NEXT5700
5470STR+0002
5480INCW0800
5490TESTW003NEXT0900
5500INCW0800
5510SUBR0002
5520FLAGSTOP
5530ADDN0002
5540PROC12000
5550PROC11500
5560EXIT
5700TESTW0155710NEXT
5705TESTW016NEXT5800
5710INCW0800
5720TESTW004NEXT0900
5730INCW0800
5740JUMP5820
5800TESTW003NEXT0900
5810INCW0800
5820TESTW039NEXT5828
5825INCW0800
5828TESTP???NEXT0900
5830STR+0002
5840INCW0800
5850SUBR0002
5860FLAGSTOP
5870ADDN0002
5880PROC12400
5890EXIT
6000INCW0800
6010NULL0002
6020TESTW039NEXT6025
6022INCW0800
6025SUBR0002
6030FLAGSTOP
6040ADDN0002
6050TESTP???NEXT0900
6060STR+0002
6070INCW0800
6080SUBR0002
6090FLAGSTOP
6100ADDN0002
6110PROC16000
6120EXIT
7000LOAD0003